home *** CD-ROM | disk | FTP | other *** search
/ Technotools / Technotools (Chestnut CD-ROM)(1993).ISO / lang_c / cug231 / copy.st < prev    next >
Text File  |  1987-06-17  |  512b  |  34 lines
  1. Class Main
  2. | i j k l |
  3. [
  4.     main
  5.         i <- Test new.
  6.         i set: 17.
  7.         j <- Test new.
  8.         j set: i.
  9.         k <- j deepCopy.
  10.         l <- j shallowCopy.
  11.         i set: 12.
  12.         k print.
  13.         l print.
  14.         i <- Test new.
  15.         i set: 17.
  16.         j <- #(2).
  17.         j at: 1 put: i.
  18.         k <- j deepCopy.
  19.         l <- j shallowCopy.
  20.         i set: 12.
  21.         k print.
  22.         l print.
  23. ]
  24. Class Test
  25. | var |
  26. [
  27.     printString
  28.         ^ 'test value ', var printString
  29. |
  30.     set: aVal
  31.         var <- aVal
  32. ]
  33.  
  34.